home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / bitfax.300 / disk1 / ansi.em_ / ansi.bin
Text File  |  1994-04-19  |  3KB  |  125 lines
  1. INITIAL
  2. { ANSI TERMINAL SUPPORT, SUPPORTS MOST BBS WITH GRAPHICS }
  3. z#origin(1)
  4. z#setbuf(1,0);z#setbuf(3,0)
  5. z#awrap(0)
  6. z#setatt(23)
  7. setcolor(23)
  8. clear
  9. z#setmar(1,@mrow)
  10. z#setins(0)
  11. @MAXROW=25
  12. @uparr = '"$1b[A"'
  13. @dnarr = '"$1b[B"'
  14. @riarr = '"$1b[C"'
  15. @lfarr = '"$1b[D"'
  16. END
  17. INBUFFER
  18. 0x00 NUL
  19. 0x08 BS2
  20. 0x0b LF
  21. 0x0c LF
  22. 0x1a CAN
  23. 0x7f NUL
  24. END
  25. INBUFFER2
  26. END
  27. OUTBUFFER
  28. END
  29. HOSTCODE
  30. [20h            z#lfnl(1)
  31. [?4h            z#setins(1)
  32. [?5h            z#setatt(112)
  33. [?6h            z#origin(2);poscur(1,1)
  34. [?7h            z#awrap(0)
  35. [?8h
  36. [?9h
  37. [1h
  38. [3h
  39. [4h             z#setins(1)
  40. [5h             z#setatt(112)
  41. [6h             z#origin(2);poscur(1,1)
  42. [7h             z#awrap(0)
  43. [8h
  44. [9h
  45. [20l            z#lfnl(2)
  46. [?4l            z#setins(0)
  47. [?5l            z#setatt(7)
  48. [?6l            z#origin(1);poscur(1,1)
  49. [?7l            z#awrap(1)
  50. [?8l
  51. [?9l
  52. [1l
  53. [3l
  54. [4l             z#setins(0)
  55. [5l             z#setatt(7)
  56. [6l             z#origin(1);poscur(1,1)
  57. [7l             z#awrap(1)
  58. [8l
  59. [9l
  60. [m              z#setatt(7)
  61. [0m             z#setatt(7)
  62. [1m             z#setatt(14)
  63. [4m             z#setatt(1)
  64. [5m             z#setatt(128)
  65. [7m             z#setatt(112)
  66. [0;4m           z#setatt(1)
  67. [0;1m           z#setatt(14)
  68. [0;5m           z#setatt(128)
  69. [0;7m           z#setatt(112)
  70. [\t;\br         z#setmar(\\t,\\b);poscur(1,1)
  71. [;r             z#setmar(1,@mrow);poscur(1,1)
  72. [r              z#setmar(1,@mrow);poscur(1,1)
  73. [;\br           z#setmar(1,\\b);poscur(1,1)
  74. [\nA            z#curup(\\n,0)
  75. [A              z#curup(1,0)
  76. [\nB            z#curdn(\\n,0)
  77. [B              z#curdn(1,0)
  78. [\nC            z#curfwd(\\n)
  79. [C              z#curfwd(1)
  80. [\nD            z#curbak(\\n)
  81. [D              z#curbak(1)
  82. [;\nH           poscur(\\n,1)
  83. [\nH            poscur(1,\\n)
  84. [\n;H           poscur(1,\\n)
  85. [H              poscur(1,1)
  86. [;H             poscur(1,1)
  87. [\r;\cH         poscur(\\c,\\r)
  88. [;\nf           poscur(\\n,1)
  89. [\nf            poscur(1,\\n)
  90. [\n;f           poscur(1,\\n)
  91. [f              poscur(1,1)
  92. [;f             poscur(1,1)
  93. [\r;\cf         poscur(\\c,\\r)
  94. H               z#tabset
  95. [s              z#savpos
  96. [u              z#Respos
  97. [g              z#tabclr
  98. [0g             z#tabclr
  99. [3g             z#tabcla
  100. [K              z#clreol
  101. [0K             z#clreol
  102. [1K             z#clrbol
  103. [2K             z#clrlin
  104. [J              z#clreos
  105. [0J             z#clreos
  106. [1J             z#clrbos
  107. [2J             clear
  108. [P              z#del(1)
  109. [0P             z#del(1)
  110. [\nP            z#del(\n)
  111. [L              z#inslin(1)
  112. [0L             z#inslin(1)
  113. [\nL            z#inslin(\n)
  114. [M              z#dellin(1)
  115. [0M             z#dellin(1)
  116. [\nM            z#dellin(\n)
  117. [5n             "$1b[0n"
  118. [6n             "$1b[@row.;@col.R"
  119. [c              "$1b[?1;0c"
  120. [0c             "$1b[?1;0c"
  121. Z               "$1b[?1;0c"
  122. c               z#origin(1);z#setbuf(1,0);z#setbuf(3,0);z#awrap(0);z#setmar(1,@mrow);
  123. #8
  124. END
  125.